home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
baud173c.zip
/
R-PCBAUD.MRG
< prev
next >
Wrap
Text File
|
1992-02-29
|
1KB
|
39 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
* RBBS-PC.BAS: Date 9-5-1991 Size 159962 bytes
* ------------[ Created 02-29-1992 ]------------
175 GOSUB 5344
CALL CountLines (MaxEntries)
REDIM ZCategoryName$(MaxEntries),ZCategoryCode$(MaxEntries),_
ZCategoryDesc$(MaxEntries)
CALL InitFMS (ZNumCategories)
ZMaxMsgLines = ZMaxMsgLinesDef
IF (NOT ZLocalUser) AND (NOT ZSubBoard) THEN _
CALL OpenCom (ZModemInitBaud$,",N,8,1")
IF NOT ZSubBoard THEN _
CALL SetEcho (ZDefaultEchoer$)
ZNodeWorkFile$ = ZNodeWorkDrvPath$ + _
"NODE" + _
ZNodeFileID$ + _
"WRK"
ZSecsPerSession! = ZMinsPerSession * 60!
LogIndex = 1 ' TC090119
IF NOT ZLocalUserMode THEN _
IF NOT ZExitToDoors THEN _
GOTO 180 _
ELSE IF NOT ZLocalUser THEN _
GOTO 180
ZLocalUser = ZTrue
ZBPS = -6
ZBaudTest! = 9600
ZCBaud$ = "9600" ' RM022301
ZEightBit = ZTrue
ZSnoop = ZTrue
' LogIndex = 1 ' TC090119
IF ZExitToDoors THEN _
CALL AMorPM : _
CALL ReadProf : _
GOTO 410
GOSUB 178
GOTO 345